﻿Public Class Pago
    Implements IPago


    Public Function ListaPago(ByVal dni As String) As System.Data.DataTable Implements IPago.ListaPago

       Dim tabla As New DataTable("dtPago")
        tabla.Columns.Add("NombreProducto")
        tabla.Columns.Add("ImportePago")
        tabla.Columns.Add("TipoPago")
        tabla.Columns.Add("DNI")

        Dim fila1 As DataRow = tabla.NewRow()

        fila1("NombreProducto") = "Tarjeta Visa"
        fila1("ImportePago") = "500"
        fila1("TipoPago") = "Agua"
        fila1("DNI") = "25854703"

        Dim fila2 As DataRow = tabla.NewRow()

        fila2("NombreProducto") = "Tarjeta Visa"
        fila2("ImportePago") = "600"
        fila2("TipoPago") = "Agua"
        fila2("DNI") = "25854703"


        Dim fila3 As DataRow = tabla.NewRow()

        fila3("NombreProducto") = "Tarjeta Visa"
        fila3("ImportePago") = "700"
        fila3("TipoPago") = "Luz"
        fila3("DNI") = "25854703"

        Dim fila4 As DataRow = tabla.NewRow()

        fila4("NombreProducto") = "Tarjeta Master"
        fila4("ImportePago") = "800"
        fila4("TipoPago") = "Luz"
        fila4("DNI") = "25854703"

        Dim fila5 As DataRow = tabla.NewRow()

        fila5("NombreProducto") = "Tarjeta Master"
        fila5("ImportePago") = "5000"
        fila5("TipoPago") = "Telefono"
        fila5("DNI") = "25854703"


        tabla.Rows.Add(fila1)
        tabla.Rows.Add(fila2)
        tabla.Rows.Add(fila3)
        tabla.Rows.Add(fila4)
        tabla.Rows.Add(fila5)

        Return tabla
    End Function
End Class
